home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tg.d64 / house painter.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  58 lines
  1. 100 PRINT "[147]HOUSEPAINTER  -  JIM BUTTERFIELD"
  2. 110 PRINT "   TRY TO PAINT THE HOUSE USING THE
  3. 120 [153] "FUNCTION KEYS TO MOVE THE BRUSH.
  4. 130 PRINT "   YOU'RE NOT ALLOWED TO PAINT OVER
  5. 140 [153] "AN AREA ... SO DON'T PAINT YOURSELF
  6. 150 PRINT "INTO A CORNER.
  7. 160 [153] "   YOU HAVE FIVE MINUTES.  (null)EAVE THE
  8. 170 PRINT "PAINT BRUSH IN THE RED SHED WHEN
  9. 180 [153] "YOU'RE FINISHED.  PRESS ANY KEY TO GO.
  10. 190 FOR J=1 TO 1E4:GET X$:IF X$="" THEN NEXT J
  11. 200 DATA 3,0,24,0,39
  12. 210 DATA 7,10,20,10,30
  13. 220 DATA 7,8,9,15,18
  14. 230 DATA 3,15,17,13,15
  15. 240 DATA 3,16,18,25,27
  16. 250 DATA 3,17,20,19,21
  17. 260 DATA 2,18,20,31,33
  18. 270 DATA -1
  19. 300 PRINT CHR$(159);CHR$(147);"WAIT";CHR$(142);CHR$(8):POKE 53281,1
  20. 310 C0=55296:S0=1024
  21. 320 REM
  22. 330 READ C:IF C<0 GOTO 400
  23. 340 READ V1,V2,H1,H2
  24. 350 FOR J=V1*40 TO V2*40 STEP 40
  25. 360 FOR X=C0+J+H1 TO C0+J+H2
  26. 370 POKE X,C
  27. 380 NEXT X,J
  28. 390 GOTO 330
  29. 400 FOR J=S0+4 TO S0+999:POKE J,160:NEXT J
  30. 410 FOR J=C0 TO C0+999
  31. 420 IF (PEEK(J)AND15)=7 THEN N=N+1
  32. 430 NEXT J
  33. 440 TI$="000000"
  34. 450 V=19:H=32
  35. 460 POKE V0*40+H0+S0,160
  36. 470 POKE V*40+H+S0,209
  37. 480 V0=V:H0=H
  38. 490 PRINT CHR$(19);CHR$(18);TI$
  39. 500 IF TI$>"000499" GOTO 680
  40. 510 K=PEEK(203)
  41. 520 GET K$:K1=ASC(K$+CHR$(0))
  42. 530 IF K1=133 THEN V1=-1
  43. 540 IF K1=134 THEN H1=-1
  44. 550 IF K1=135 THEN H1=1
  45. 560 IF K1=136 THEN V1=1
  46. 570 IF K<64 GOTO 590
  47. 580 V1=0:H1=0
  48. 590 V=V0+V1:H=H0+H1
  49. 600 P=C0+V*40+H:IF P=P9 GOTO 490
  50. 610 C=PEEK(P)AND15
  51. 620 IF C<>7 AND C<>2 GOTO 490
  52. 630 IF C9=7 THEN POKE P9,1:N=N-1
  53. 640 P9=P:C9=C
  54. 650 IF C<>2 OR N>0 GOTO 460
  55. 660 PRINT " WINNER! "
  56. 670 END
  57. 680 PRINT " YOU MISSED";STR$(N);" SQUARES"
  58.